home *** CD-ROM | disk | FTP | other *** search
/ The Pier Shareware 3 / The Pier Shareware Number 3 (The Pier Exchange) (1993).iso / 024 / gpal101g.exe / GPAL.BI < prev    next >
Text File  |  1993-08-11  |  2KB  |  17 lines
  1. DECLARE SUB GPal (Colour%, Red%, Green%, Blue%) '  Colour: 0-255          Red: 0-63 (intensity)/Green: 0-63 (intensity)/Blue: 0-63 (intensity)
  2. DECLARE SUB GSavePalette (FileName$) '  Saves the current palette to disk.
  3. DECLARE SUB GLoadPalette (FileName$, ErrCode%)  '  ErrCode:               0 - All's Ok                                                          1 - Not a GPAL file
  4. DECLARE SUB GFadeOutPalette (FadeSpeed%)  '  Fade Speed:                  Range 1 - 10,  1 being the slowest.
  5. DECLARE SUB GFadeInPalette (FadeSpeed%) '  Fade Speed:                    Range 1 - 10,  1 being the slowest.  Use 0 for instant palette        display.
  6. DECLARE SUB GBlankPalette (Options%) '  Options:                          0 - Set palette to black instantly                                    1 - Slowly set palette to black
  7. DECLARE SUB InitGPALDriver () '  Initializes the GPAL driver.  (Note:     always call "InitGPALDriver" after changing any palette values)
  8. DECLARE SUB GetPalette (Array&()) '  Array:                               Array data to be used with "PALETTE USING"
  9. DECLARE SUB GetPaletteRGB (Array&()) '  Array:                            Array data sorted in an RGB pattern
  10. DECLARE SUB GrafLoad (FileName$, Options%, ErrCode%) '  Options:          0  - Load image only, no palette    1  - Load palette before image    2  - Load palette after image       3+ - Fade-in palette after image
  11. DECLARE SUB GrafSave (FileName$) '  Saves a graphic image to disk.
  12. DECLARE SUB MoveDisplay (xAxis%, yAxis%) '  Moves the display left/right/up/down
  13. DECLARE SUB GSetBright (Brightness%) '  Brightness:                    Range 1 - 63,  1 being the darkest.  Use 0 to restore the             brightness.
  14. DECLARE SUB GRestorePalette (Index%) '  Index:                           Number of palette to restore.  Range 0-4.
  15. DECLARE SUB GStorePalette (Index%) '  Index:                           Number to store palette as.  Range 0-4.
  16.  
  17.